(cat "Willkommen zum Installationsprogramm des hARDcHECKERs 1.8\nDieses Script hilft ihnen das programm und alle Programmteile zu installieren. Bitte folgen sie den Anweisungen wärend der installation.\n\nHaben sie bereits eine ältere Version Installiert und wollen nur UpDaten, beenden sie bitte dieses Script und starten sie das UPDATE script!\n\n(c)1999 Phoenix Soft\nslarti@cyberdude.com\nhttp://slarti.ixy.de"
))
(set #extro
(cat "Die Installation vom hardchecker "prg-Version" ist nun beendet. Weitere Infos entnehmen sie bitte dem Filechecker.Guide im Verzeichniss "destdir"\n\n! Achtung: Wird der konfig-Editor das erste mal aufgerufen verlangt er nach den Datenträger 'cg-tools:'. Dabei handelt es sich _nicht_ um einen fehler! Einfach auf CANCEL klicken"
))
(message #intro)
(complete 20)
(set destdir
(askdir
(prompt "Wohin soll das Hauptprogramm CHECKER kopiert werden? \n")
(help "In dieses Verzeichniss wird der Filechecker und die guide kopiert")
(default "prometheus:extern")
)
)
(set destdirb
(askdir
(prompt "Wohin soll der SentBy-Line-Editor kopiert werden? \n")
(help "In dieses Verzeichniss wird der Sentby-Line editor kopiert")
(default "prometheus:extern")
)
)
(set destdirc
(askdir
(prompt "Wohin soll der Online Konfig-Editor HardEd kopiert werden? \n")
(help "In dieses Verzeichniss wird der Online Konfig-editor kopiert")
(help "Hier können die programme gewählt werden, mit dennen der Hardchecker die versch. Files checkt und deren File_IDs ausliest. Nach möglichkeit sollten alle programme kopiert werden ! \n\n" @askoptions-help)
(choices
_ca
_cb
_cc
_cd
_ce
_cf
_cg
_ch
_ci
_cj
_ck
)
(default (if (= @user-level 2) 511 ))
)
)
(copyfiles
(prompt "Hardschecker "prg-version" kopieren?\n")
(help "Die alte Checkerversion wird ueberschrieben")
(message "Es wird nun das verzeichniss s:hard/ erzeugt in dem alle configs abgelegt werden. Sollten sie bereits eine HardChecker version installiert haben (min. v1.4) können sie ihre alten configs dorthin kopieren oder aber im alten verzeichniss cg-tools:filechecker/ belassen.")
(if
(= (exists destbin) 0)
(makedir destbin)
)
(copyfiles
(source "s/hard")
(dest destbin)
(all)
)
(copyfiles
(prompt "Deutsches Catalog-file kopieren?\n")
(help "Seit version 1.4 ist der HardChecker lokalisiert")
(source _cat)
(dest "locale:catalogs/deutsch/")
(confirm)
)
(copyfiles
(prompt "Soll das Freeware Keyfile von LZX kopiert werden?")
(help "keine hilfe")
(source _key)
(dest "l:")
(confirm)
)
(copylib
(prompt "Rexxtricks.library kopieren?")
(help #select1_help)
(source _libc)
(dest "libs:")
(confirm)
)
(copylib
(prompt "rexxsupport.library kopieren?")
(help #select1_help)
(source _libb)
(dest "libs:")
(confirm)
)
(copylib
(prompt "FileID.library kopieren?")
(help #select1_help)
(source _liba)
(dest "libs:")
(confirm)
)
(copylib
(prompt "reqtools.library kopieren?")
(help #select1_help)
(source _libe)
(dest "libs:")
(confirm)
)
(copylib
(prompt "rexxreqtools.library kopieren?")
(help #select1_help)
(source _libd)
(dest "libs:")
(confirm)
)
(textfile
(append "/* */\ncheckpfad = lastpos('/',destdir);checkpfad2 = length(destdir);checkpfad3 = lastpos(':',destdir);if checkpfad3 ~= checkpfad2 then checkpfad3 = 0;if checkpfad3 = 0 then do;if checkpfad ~= checkpfad2 then checkpfad = 0;if checkpfad = 0 then destdir = destdir||'/';end;if ~exists('prometheus:batches/upload.bat') then call open btwrite,'prometheus:batches/upload.bat','W';else call open btwrite,'prometheus:batches/upload.bat','A';writeln(btwrite,'#RUN "destdir"checker $PO $BP $LF');call close btwrite\n")
(dest "t:login.rexx")
)
(complete 80)
(rexx ("t:login.rexx")
(prompt "Soll der Checker nun in die upload.bat eingefügt werden? Es darf vor und nachher kein anderer checker laufen! (logisch ;)")
(help "zur zeit keine hilfe verfügbar")
(confirm)
)
(run ("delete t:login.rexx"))
(set #inste (cat "InstallCommand BN=SentByEditor A=\""destdirb"/sentby $PO P\" SC=5 Kommentar=\"SentBy-Line-Editor fuer den HardChecker\" SB B T=2"))
(set #instf (cat "InstallCommand BN=HardEditor A=\""destdirc"/harded $PO P\" SC=5 Kommentar=\"Online Konfig-Editor fuer den HardChecker\" SB B T=2 G=SYSOP"))
(run #inste (SAFE)
(prompt "Befehl für den SentBy-Line-Editor erstellen ?\nSENTBy-line\n\nBitte kontrolieren sie nach der Installation den Befehl auf den Richtigen Pfad und die richtige Gruppe!!!!\n")
(help "zur zeit keine hilfe verfügbar")
(confirm)
)
(run #instf (SAFE)
(prompt "Befehl für den OnLine konfig-Editor erstellen ?\nHardEditor\n\nBitte kontrolieren sie nach der Installation den Befehl auf den Richtigen Pfad und die richtige Gruppe!!!!\n")
